home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / cv.txt < prev    next >
Encoding:
Text File  |  1996-04-23  |  941 b   |  32 lines
  1. ...%G%... Color Vowel 1.0 C0rTeX '97 ...%G%...
  2.  
  3. *** Place in Aliases:
  4.  
  5. /cv {
  6.   if status isin $active { echo 6 *** This command does not work in status. | halt }
  7.   if $1 == $null { echo 6 *** Usage: /cv [<color(red,blue)>] [<text>]  | halt }
  8.   if *2 == $null { echo 6 *** Usage: /cv [<color(red,blue)>] [<text>]  | halt }
  9.   if $1 == red  { goto red }
  10.   if $1 == blue { goto blue }
  11.   :red
  12.   set %c.red *2
  13.   %c.red = $replace(%c.red,a,4a)
  14.   %c.red = $replace(%c.red,e,4e)
  15.   %c.red = $replace(%c.red,i,4i)
  16.   %c.red = $replace(%c.red,o,4o)
  17.   %c.red = $replace(%c.red,u,4u)
  18.   %c.red = $replace(%c.red,y,4y)
  19.   say %c.red
  20.   halt
  21.   :blue
  22.   set %c.blue *2
  23.   %c.blue = $replace(%c.blue,a,12a)
  24.   %c.blue = $replace(%c.blue,e,12e)
  25.   %c.blue = $replace(%c.blue,i,12i)
  26.   %c.blue = $replace(%c.blue,o,12o)
  27.   %c.blue = $replace(%c.blue,u,12u)
  28.   %c.blue = $replace(%c.blue,y,12y)
  29.   say %c.blue
  30.   halt
  31. }
  32.